Canon Creative 3/Canon Creative 3.iso/webrec/MAINMENU.DIR/00094.ls

Text File | 1996-12-10 | 1.5 KB | 72 lines

on startMovie
  global TheSprite, itemDel, Status, ToGo, PrevMovie
  if (PrevMovie <> "body") or (PrevMovie <> "power") then
    set PrevMovie to "body"
  end if
  set CurrSound to EMPTY
  set TheSprite to 1
  set the volume of sprite 2 to 255
  set the volume of sprite 1 to 255
  set Status to []
  if the machineType = 256 then
    set itemDel to "\"
  else
    set itemDel to ":"
  end if
  set the itemDelimiter to ","
  set ToGo to "open"
end

on rollOvers
  global TheSprite
  if rollOver(12) then
    set TheSprite to 4
    go("internet")
  end if
  if rollOver(13) then
    set TheSprite to 5
    go("features")
  end if
  if rollOver(14) then
    set TheSprite to 6
    go("fulltour")
  end if
  if rollOver(15) then
    set TheSprite to 7
    go("using")
  end if
end

on changeCast theRoll, TheSprite
  if not (the name of cast the castNum of sprite TheSprite contains "down") then
    set the castNum of sprite TheSprite to the castNum of sprite TheSprite - 1
    updateStage()
    repeat while (the mouseCast = (theRoll - 1)) and not (the mouseDown)
    end repeat
    set the castNum of sprite TheSprite to the castNum of sprite TheSprite + 1
  end if
end

on disposeRearWindow
  global rwObj
  if the machineType <> 256 then
    if objectp(rwObj) then
      rwObj(mdispose)
    end if
  end if
end

on stopMovie
  puppetSound(0)
  puppetSound(2, 0)
  sound stop 1
  sound stop 2
  sound stop 3
  sound stop 4
  puppetSound(0)
  puppetSound(2, 0)
  unLoadCast(114)
  updateStage()
  updateStage()
end